home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / demo 2.3.l < prev    next >
Text File  |  2007-02-28  |  349b  |  21 lines
  1. 0010 SETGRAPHIC 0
  2. 0020 BACKGROUND 0
  3. 0030 CLEAR 
  4. 0040 FULLSCREEN 
  5. 0050 FOR BOX:=1 TO 4 DO
  6. 0060 FORWARD 20
  7. 0070 RIGHT 90
  8. 0080 ENDFOR BOX
  9. 0090 FILL 161,100
  10. 0100 MOVETO 50,50
  11. 0110 DRAWTO 50,70
  12. 0120 FOR DOT:=1 TO 20 DO PLOT RND(0,319),RND(0,199)
  13. 0130 HOME 
  14. 0140 PENUP 
  15. 0150 LEFT 90
  16. 0160 FORWARD 50
  17. 0170 PENDOWN 
  18. 0180 RIGHT 80
  19. 0190 SETXY 10,10
  20. 0200 HOME 
  21.